# LaTeX2HTML 2022 (Released January 1, 2022)
# Associate images original text with physical files.
$key = q//;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img25.png"
 ALT="\begin{evaltrace}
+&ndash;&gt; ;(zero-center '(3 11 13))
\vert
+**&gt; ;Apply ZERO-CENTE...
...t of MAPCAR is (-6 2 4)
+_*&gt; ;Result of ZERO-CENTER is (-6 2 4)
\end{evaltrace}">|; 
$key = q/{code}(+23){et-->}5{code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img3.png"
 ALT="\begin{code}
(+ 2 3) {\et &ndash;&gt;} 5
\end{code}">|; 
$key = q/{code}(defmacrosimple-incf(var)(printa)(list'setqvar(list'+var1)))strut(setfa'foo)strut(defuntest(a)(simple-incfa)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img26.png"
 ALT="\begin{code}
(defmacro simple-incf (var)
(print a)
(list 'setq var (list '+ var 1)))
\strut
(setf a 'foo)
\strut
(defun test (a)
(simple-incf a))
\end{code}">|; 
$key = q/{code}(defunaverage(xy)(let((sum(+xy)))(listxy'average(slashsum2)))){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img10.png"
 ALT="\begin{code}
(defun average (x y)
(let ((sum (+ x y)))
(list x y 'average (/ sum 2))))
\end{code}">|; 
$key = q/{code}(defundouble(n)(*n2)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img4.png"
 ALT="\begin{code}
(defun double (n)
(* n 2))
\end{code}">|; 
$key = q/{code}(defungcd(xy)(if(=xy)x(let((x(if(<xy)xy))(y(if(<xy)yx)))(gcdx(-yx))))){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img15.png"
 ALT="\begin{code}
(defun gcd (x y)
(if (= x y)
(let ((x (if (&lt; x y) x y))
(y (if (&lt; x y) y x)))
(gcd x (- y x)))))
\end{code}">|; 
$key = q/{code}(defunquintuple(n)(+(double(doublen))n)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img6.png"
 ALT="\begin{code}
(defun quintuple (n)
(+ (double (double n)) n))
\end{code}">|; 
$key = q/{code}(defunshifter(konst)#'(lambda(x)(-xkonst))){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img23.png"
 ALT="\begin{code}
(defun shifter (konst)
\char93 '(lambda (x) (- x konst)))
\end{code}">|; 
$key = q/{code}(defunzero-center(data)(mapcar(shifter(averagedata))data)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img24.png"
 ALT="\begin{code}
(defun zero-center (data)
(mapcar (shifter (average data)) data))
\end{code}">|; 
$key = q/{code}(defvar*n*1000)strut(defunparent(*n*)(child(+*n*2)))strut(defunchild(p)(list*n*p)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img28.png"
 ALT="\begin{code}
(defvar *n* 1000)
\strut
(defun parent (*n*)
(child (+ *n* 2)))
\strut
(defun child (p)
(list *n* p))
\end{code}">|; 
$key = q/{code}(setfcrude-pi3.14)strut(defuncircumference(r)(*2rcrude-pi)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img8.png"
 ALT="\begin{code}
(setf crude-pi 3.14)
\strut
(defun circumference (r)
(* 2 r crude-pi))
\end{code}">|; 
$key = q/{code}(setfn1000)strut(defunparent(n)(child(+n2)))strut(defunchild(p)(listnp)){code};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img12.png"
 ALT="\begin{code}
(setf n 1000)
\strut
(defun parent (n)
(child (+ n 2)))
\strut
(defun child (p)
(list n p))
\end{code}">|; 
$key = q/{evaltrace}+-->;(++23)|+_->;5{evaltrace};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img2.png"
 ALT="\begin{evaltrace}
+&ndash;&gt; ;(++ 2 3)
\vert
+_-&gt; ;5
\end{evaltrace}">|; 
$key = q/{evaltrace};theglobalvariableNhasvalue1000strut+-->;(parent3)|+<comment_mark>20+_{evaltrace};LFS=11;AAT/;
$cached_env_img{$key} = q|<IMG
  STYLE="" SRC="|."$dir".q|img14.png"
 ALT="\begin{evaltrace}
;the global variable N has value 1000
\strut
+&ndash;&gt; ;(parent 3)
\vert
+%%&gt; ;Apply PARENT to 3
+_\end{evaltrace}">|;